home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh7x / sh72b.d64 / konverter 2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  912b  |  17 lines
  1. 5 DIMA(600):PRINT"[147]KONVERTER  PRINTMASTER --> TOPPRINT":PRINT"    FUER KLEINGRAFIKEN (BILDER)":PRINT"NIKOLAUS HEUSLER, 10.91  (C) 64'ER":INPUT"NAME DES PRINTMASTER-BILDES ";A$:PRINT"- BITTE WARTEN -":OPEN15,8,15,"I0":OPEN2,8,2,A$+".GRA,P,R":INPUT#15,F1,F1$,F2,F3
  2. 70 IFF1THENPRINT"DISKETTENFEHLER: "F1$:STOP
  3. 72 OPEN3,8,3,A$+".[194]I,P,W":INPUT#15,F1,F1$,F2,F3:IFF1THENPRINT"DISKETTENFEHLER: "F1$:STOP
  4. 78 PRINT#3,CHR$(160)CHR$(177);:GET#2,A$,B$:IFA$<>"P"ORB$<>CHR$(119)THENPRINT"FILEFEHLER":STOP
  5. 90 GET#2,A$:IFA$<>"X"THENPRINT"FILEFEHLER":STOP
  6. 91 GET#2,A$:IFA$THENPRINT"FILEFEHLER":STOP
  7. 92 GET#2,A$:IFA$<>"4"THENPRINT"FILEFEHLER":STOP
  8. 93 GET#2,A$:IFA$THENPRINT"FILEFEHLER":STOP
  9. 94 GET#2,A$:IFA$<>"[180]"THENPRINT"FILEFEHLER":STOP
  10. 95 GET#2,A$:IFA$<>CHR$(139)THENPRINT"FILEFEHLER":STOP
  11. 100 FORI=1TO11:GET#2,A$:A(R)=ASC(A$+CHR$(0)):S=S+A(R):R=R+1:NEXT:IFSTTHEN112
  12. 110 GET#2,A$:IFA$<>CHR$(139)THENPRINT"FILEFEHLER":STOP
  13. 112 Z=Z+1:IFS=0THENR=R-11:GOTO100
  14. 120 IFF=0THENF=1:PRINT"(BILD BEGINNT BEI ZEILE"Z"[157])
  15. 130 [139]Z[179]52[167]100
  16. 140 [129]I[178]0[164]5:[129]J[178]0[164]10:[129]K[178]0[164]7:[152]3,[199](A(K[172]11[170]I[172]88[170]J));:[130]K,J:[129]L[178]0[164]7:[152]3,[199](0);:[130]L,I:[160]3:[160]2:[160]15:[153]"OKAY.":[128]
  17.